home *** CD-ROM | disk | FTP | other *** search
/ Delphi Developer's Kit 1996 / Delphi Developer's Kit 1996.iso / power / source8 / bimage.dfm / bimage.txt
Encoding:
Text File  |  1995-12-22  |  10.3 KB  |  474 lines
  1. object Form1: TForm1
  2.   Left = 15
  3.   Top = 12
  4.   Width = 611
  5.   Height = 454
  6.   ActiveControl = DirectoryListBox1
  7.   Caption = 'Imagelib user'#39's example'
  8.   Font.Color = clBlack
  9.   Font.Height = -12
  10.   Font.Name = 'Times New Roman'
  11.   Font.Style = []
  12.   Menu = MainMenu1
  13.   PixelsPerInch = 96
  14.   Position = poScreenCenter
  15.   OnClose = FormClose
  16.   OnCreate = FormCreate
  17.   TextHeight = 15
  18.   object QualityLabel: TLabel
  19.     Left = 511
  20.     Top = 206
  21.     Width = 57
  22.     Height = 14
  23.     Caption = 'Quality save'
  24.     Font.Color = clNavy
  25.     Font.Height = -11
  26.     Font.Name = 'Times New Roman'
  27.     Font.Style = []
  28.     ParentFont = False
  29.   end
  30.   object SmoothLabel: TLabel
  31.     Left = 512
  32.     Top = 272
  33.     Width = 59
  34.     Height = 14
  35.     Caption = 'Smooth save'
  36.     Font.Color = clNavy
  37.     Font.Height = -11
  38.     Font.Name = 'Times New Roman'
  39.     Font.Style = []
  40.     ParentFont = False
  41.   end
  42.   object Label1: TLabel
  43.     Left = 8
  44.     Top = 11
  45.     Width = 82
  46.     Height = 15
  47.     Caption = 'Source Directory'
  48.   end
  49.   object Label2: TLabel
  50.     Left = 160
  51.     Top = 12
  52.     Width = 106
  53.     Height = 15
  54.     Caption = 'Destination Directory'
  55.   end
  56.   object Label3: TLabel
  57.     Left = 384
  58.     Top = 16
  59.     Width = 145
  60.     Height = 25
  61.     Alignment = taCenter
  62.     AutoSize = False
  63.     Color = 12639424
  64.     Font.Color = clBlack
  65.     Font.Height = -19
  66.     Font.Name = 'Times New Roman'
  67.     Font.Style = [fsBold]
  68.     ParentColor = False
  69.     ParentFont = False
  70.   end
  71.   object Label4: TLabel
  72.     Left = 349
  73.     Top = 291
  74.     Width = 162
  75.     Height = 15
  76.     Caption = 'Convert images from/to eachother'
  77.   end
  78.   object MultiImage1: TMultiImage
  79.     Left = 352
  80.     Top = 56
  81.     Width = 201
  82.     Height = 129
  83.     Cursor = crCross
  84.     Center = True
  85.     DragCursor = crSizeNS
  86.     JPegDither = 4
  87.     JPegResolution = 8
  88.     JPegSaveQuality = 25
  89.     JPegSaveSmooth = 5
  90.     ImageName = 'file not found'
  91.     Stretch = True
  92.     OnClick = MultiImage1Click
  93.   end
  94.   object DriveComboBox1: TDriveComboBox
  95.     Left = 8
  96.     Top = 381
  97.     Width = 145
  98.     Height = 21
  99.     Color = clTeal
  100.     Font.Color = clYellow
  101.     Font.Height = -12
  102.     Font.Name = 'Times New Roman'
  103.     Font.Style = []
  104.     ParentFont = False
  105.     TabOrder = 0
  106.     OnChange = DriveComboBox1Change
  107.   end
  108.   object DirectoryListBox1: TDirectoryListBox
  109.     Left = 8
  110.     Top = 268
  111.     Width = 144
  112.     Height = 110
  113.     Color = 12639424
  114.     ItemHeight = 16
  115.     TabOrder = 1
  116.     OnChange = DirectoryListBox1Change
  117.   end
  118.   object FileListBox1: TFileListBox
  119.     Left = 8
  120.     Top = 56
  121.     Width = 145
  122.     Height = 209
  123.     Color = 12639424
  124.     ItemHeight = 16
  125.     Mask = '*.gif;*.jpg;*.pcx;*.bmp'
  126.     MultiSelect = True
  127.     ShowGlyphs = True
  128.     TabOrder = 2
  129.     OnChange = FileListBox1Change
  130.     OnDblClick = FileListBox1Change
  131.   end
  132.   object Convert: TBitBtn
  133.     Left = 515
  134.     Top = 351
  135.     Width = 81
  136.     Height = 50
  137.     Caption = '&Convert'
  138.     Font.Color = clNavy
  139.     Font.Height = -11
  140.     Font.Name = 'Times New Roman'
  141.     Font.Style = []
  142.     ParentFont = False
  143.     TabOrder = 3
  144.     OnClick = ConvertClick
  145.     Glyph.Data = {
  146.       78010000424D7801000000000000760000002800000020000000100000000100
  147.       04000000000000000000120B0000120B00000000000000000000000000000000
  148.       800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  149.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
  150.       033333FFFF77777773F330000077777770333777773FFFFFF733077777000000
  151.       03337F3F3F777777733F0797A770003333007F737337773F3377077777778803
  152.       30807F333333337FF73707888887880007707F3FFFF333777F37070000878807
  153.       07807F777733337F7F3707888887880808807F333333337F7F37077777778800
  154.       08807F333FFF337773F7088800088803308073FF777FFF733737300008000033
  155.       33003777737777333377333080333333333333F7373333333333300803333333
  156.       33333773733333333333088033333333333373F7F33333333333308033333333
  157.       33333737333333333333330333333333333333733333333333330000}
  158.     Layout = blGlyphTop
  159.     NumGlyphs = 2
  160.     Style = bsNew
  161.   end
  162.   object QualitySpin: TSpinEdit
  163.     Left = 512
  164.     Top = 223
  165.     Width = 49
  166.     Height = 24
  167.     Hint = '0 to 100 for jpeg saving quality'
  168.     AutoSize = False
  169.     Font.Color = clNavy
  170.     Font.Height = -11
  171.     Font.Name = 'Times New Roman'
  172.     Font.Style = []
  173.     MaxValue = 100
  174.     MinValue = 0
  175.     ParentFont = False
  176.     ParentShowHint = False
  177.     ShowHint = True
  178.     TabOrder = 4
  179.     Value = 25
  180.     OnChange = QualitySpinChange
  181.   end
  182.   object Smoothspin: TSpinEdit
  183.     Left = 512
  184.     Top = 246
  185.     Width = 49
  186.     Height = 24
  187.     Hint = '0 to 100 for jpeg smoothing quality'
  188.     AutoSize = False
  189.     Font.Color = clNavy
  190.     Font.Height = -11
  191.     Font.Name = 'Times New Roman'
  192.     Font.Style = []
  193.     MaxValue = 100
  194.     MinValue = 0
  195.     ParentFont = False
  196.     ParentShowHint = False
  197.     ShowHint = True
  198.     TabOrder = 5
  199.     Value = 0
  200.     OnChange = SmoothspinChange
  201.   end
  202.   object GroupBox1: TGroupBox
  203.     Left = 191
  204.     Top = 319
  205.     Width = 126
  206.     Height = 81
  207.     Hint = 'Options for viewing only'
  208.     Caption = 'JPeg display resolution'
  209.     Font.Color = clNavy
  210.     Font.Height = -11
  211.     Font.Name = 'Times New Roman'
  212.     Font.Style = []
  213.     ParentFont = False
  214.     ParentShowHint = False
  215.     ShowHint = True
  216.     TabOrder = 6
  217.     object res4: TRadioButton
  218.       Left = 8
  219.       Top = 17
  220.       Width = 105
  221.       Height = 17
  222.       Hint = 
  223.         'Ideal with one pass dither to display images on a 16 color syste' +
  224.         'm'
  225.       Caption = '4 bit (16 colors)'
  226.       ParentShowHint = False
  227.       ShowHint = True
  228.       TabOrder = 0
  229.       OnClick = resClick
  230.     end
  231.     object res24: TRadioButton
  232.       Left = 8
  233.       Top = 61
  234.       Width = 105
  235.       Height = 17
  236.       Caption = '24 bit (true color)'
  237.       TabOrder = 1
  238.       OnClick = resClick
  239.     end
  240.     object res8: TRadioButton
  241.       Left = 8
  242.       Top = 38
  243.       Width = 105
  244.       Height = 17
  245.       Caption = '8 bit (256 colors)'
  246.       Checked = True
  247.       TabOrder = 2
  248.       TabStop = True
  249.       OnClick = resClick
  250.     end
  251.   end
  252.   object GroupBox2: TGroupBox
  253.     Left = 338
  254.     Top = 319
  255.     Width = 144
  256.     Height = 81
  257.     Hint = 'Options for viewing only'
  258.     Caption = 'JPeg display dither'
  259.     Font.Color = clNavy
  260.     Font.Height = -11
  261.     Font.Name = 'Times New Roman'
  262.     Font.Style = []
  263.     ParentFont = False
  264.     ParentShowHint = False
  265.     ShowHint = True
  266.     TabOrder = 7
  267.     object Label5: TLabel
  268.       Left = 4
  269.       Top = 16
  270.       Width = 41
  271.       Height = 14
  272.       Caption = 'One pass'
  273.     end
  274.     object Label6: TLabel
  275.       Left = 56
  276.       Top = 16
  277.       Width = 43
  278.       Height = 14
  279.       Caption = 'Two pass'
  280.     end
  281.     object Label7: TLabel
  282.       Left = 115
  283.       Top = 16
  284.       Width = 25
  285.       Height = 14
  286.       Caption = 'None'
  287.     end
  288.     object DitherOneNo: TRadioButton
  289.       Left = 8
  290.       Top = 38
  291.       Width = 40
  292.       Height = 17
  293.       Hint = 'One pass no dithering'
  294.       Caption = 'No'
  295.       ParentShowHint = False
  296.       ShowHint = True
  297.       TabOrder = 0
  298.       OnClick = DitherClick
  299.     end
  300.     object DitherOneYes: TRadioButton
  301.       Left = 8
  302.       Top = 60
  303.       Width = 41
  304.       Height = 17
  305.       Hint = 'One pass with dithering'
  306.       Caption = 'Yes'
  307.       ParentShowHint = False
  308.       ShowHint = True
  309.       TabOrder = 1
  310.       OnClick = DitherClick
  311.     end
  312.     object DitherTwoNo: TRadioButton
  313.       Left = 59
  314.       Top = 39
  315.       Width = 40
  316.       Height = 17
  317.       Hint = 'Two pass no dithering'
  318.       Caption = 'No'
  319.       ParentShowHint = False
  320.       ShowHint = True
  321.       TabOrder = 2
  322.       OnClick = DitherClick
  323.     end
  324.     object DitherTwoYes: TRadioButton
  325.       Left = 59
  326.       Top = 60
  327.       Width = 40
  328.       Height = 17
  329.       Hint = 'Two pass FS dithering'
  330.       Caption = 'Yes'
  331.       Checked = True
  332.       ParentShowHint = False
  333.       ShowHint = True
  334.       TabOrder = 3
  335.       TabStop = True
  336.       OnClick = DitherClick
  337.     end
  338.     object Dither24Bit: TRadioButton
  339.       Left = 109
  340.       Top = 39
  341.       Width = 33
  342.       Height = 17
  343.       Hint = 'No dithering (24 bit)'
  344.       Caption = '24'
  345.       ParentShowHint = False
  346.       ShowHint = True
  347.       TabOrder = 4
  348.       OnClick = DitherClick
  349.     end
  350.   end
  351.   object ComboBox1: TComboBox
  352.     Left = 8
  353.     Top = 32
  354.     Width = 145
  355.     Height = 22
  356.     Color = clTeal
  357.     DropDownCount = 15
  358.     Font.Color = clYellow
  359.     Font.Height = -11
  360.     Font.Name = 'Times New Roman'
  361.     Font.Style = []
  362.     ItemHeight = 14
  363.     Items.Strings = (
  364.       '*.JPG'
  365.       '*.GIF'
  366.       '*.PCX'
  367.       '*.BMP'
  368.       '*.GIF;*.PCX'
  369.       '*.GIF;*.BMP'
  370.       '*.GIF;*.JPG'
  371.       '*.PCX;*.BMP'
  372.       '*.PCX;*.GIF'
  373.       '*.PCX;*.JPG'
  374.       '*.GIF;*.PCX;*.BMP'
  375.       '*.JPG;*.GIF;*.PCX;'
  376.       '*.JPG;*.GIF;*.PCX;*.BMP'
  377.       '*.*')
  378.     ParentFont = False
  379.     TabOrder = 8
  380.     Text = 'Select file type'
  381.     OnChange = ComboBox1Change
  382.   end
  383.   object Sstretch: TCheckBox
  384.     Left = 515
  385.     Top = 322
  386.     Width = 86
  387.     Height = 17
  388.     Caption = 'Stretch Image'
  389.     Font.Color = clMaroon
  390.     Font.Height = -11
  391.     Font.Name = 'Times New Roman'
  392.     Font.Style = []
  393.     ParentFont = False
  394.     TabOrder = 9
  395.     OnClick = SstretchOnOff
  396.   end
  397.   object GroupBox3: TGroupBox
  398.     Left = 357
  399.     Top = 207
  400.     Width = 153
  401.     Height = 73
  402.     Caption = 'Convert to'
  403.     Font.Color = clPurple
  404.     Font.Height = -12
  405.     Font.Name = 'Times New Roman'
  406.     Font.Style = []
  407.     ParentFont = False
  408.     TabOrder = 10
  409.     object CTOJPEG: TRadioButton
  410.       Left = 16
  411.       Top = 20
  412.       Width = 89
  413.       Height = 17
  414.       Caption = 'Jpeg Images'
  415.       Checked = True
  416.       TabOrder = 0
  417.       TabStop = True
  418.     end
  419.     object CTOBMP: TRadioButton
  420.       Left = 16
  421.       Top = 48
  422.       Width = 89
  423.       Height = 17
  424.       Caption = 'BMP Images'
  425.       TabOrder = 1
  426.     end
  427.   end
  428.   object FileListBox2: TFileListBox
  429.     Left = 160
  430.     Top = 32
  431.     Width = 137
  432.     Height = 125
  433.     Color = clYellow
  434.     ItemHeight = 15
  435.     TabOrder = 11
  436.     OnChange = FileListBox2Change
  437.     OnDblClick = FileListBox2Change
  438.   end
  439.   object DirectoryListBox2: TDirectoryListBox
  440.     Left = 160
  441.     Top = 160
  442.     Width = 137
  443.     Height = 121
  444.     Color = clYellow
  445.     ItemHeight = 16
  446.     TabOrder = 12
  447.     OnChange = DirectoryListBox2Change
  448.   end
  449.   object DriveComboBox2: TDriveComboBox
  450.     Left = 160
  451.     Top = 283
  452.     Width = 137
  453.     Height = 21
  454.     Color = clYellow
  455.     TabOrder = 13
  456.     OnChange = DriveComboBox2Change
  457.   end
  458.   object MainMenu1: TMainMenu
  459.     Left = 576
  460.     Top = 65535
  461.     object N1: TMenuItem
  462.       Caption = '&File'
  463.       object E1: TMenuItem
  464.         Caption = 'E&xit'
  465.         OnClick = E1Click
  466.       end
  467.     end
  468.     object A1: TMenuItem
  469.       Caption = '&About'
  470.       OnClick = A1Click
  471.     end
  472.   end
  473. end
  474.